unit EnglishCreator;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,SQLCreator;
 type
 EnglishSQLCreator = Class(TInterfacedObject,ISQLCreator)
 public
 function GetTableName:string;
 function GetFieldName:string;
 end;
implementation
function EnglishSQLCreator.GetTableName:string;
begin
 GetTableName := 'EnglishDictionary';
end;
 function EnglishSQLCreator.GetFieldName:string;
begin
  GetFieldName := 'EnglishWord';
end;

end.
 